home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #9 / 1999 CD 9 (black).iso / K-CS.dxr / Internal_30_DialogBoxer.ls < prev    next >
Encoding:
Text File  |  1999-06-18  |  1013 b   |  36 lines
  1. on initializeDialogBoxer newpath
  2.   global dialogboxer
  3.   if objectp(dialogboxer) then
  4.     quitDialogBoxer()
  5.   end if
  6.   tell the stage
  7.     set savesearchpath to duplicate(the searchPath)
  8.     set the searchPath to []
  9.     if stringp(newpath) then
  10.       append(the searchPath, newpath)
  11.     end if
  12.     if the machineType = 256 then
  13.       append(the searchPath, the applicationPath & "Xtras\")
  14.       append(the searchPath, the applicationPath & "Xtras\DialogBoxer\")
  15.     else
  16.       append(the searchPath, the applicationPath & "Xtras:")
  17.       append(the searchPath, the applicationPath & "Xtras:DialogBoxer:")
  18.     end if
  19.     set dialogboxerwindow to window "DBXR-01.cct"
  20.     set the visible of dialogboxerwindow to 0
  21.     tell dialogboxerwindow
  22.       set dialogboxer to new(script "DialogBoxer object")
  23.     end tell
  24.   end tell
  25.   set the searchPath to savesearchpath
  26. end
  27.  
  28. on quitDialogBoxer
  29.   global dialogboxer
  30.   if not objectp(dialogboxer) then
  31.     exit
  32.   end if
  33.   call(#quit, dialogboxer)
  34.   set dialogboxer to VOID
  35. end
  36.